function [Cell_Recurring_Probability, Cell_Recurring_Probability_Mean] = Cell_Recurring_Probability_One_Animal_One_Dose(Data_Summary, drug, AnimalID)

for n=1:size(Data_Summary,2)
    if strcmp(Data_Summary(n).animalName, AnimalID) && strcmp(Data_Summary(n).drug, drug)
        Cell_Recurring_Probability(n,1)=Data_Summary(n).Cell_Recurring_Probability;
    end
end
Cell_Recurring_Probability(Cell_Recurring_Probability==0)=[];
Cell_Recurring_Probability_Mean = mean(Cell_Recurring_Probability);

end